home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1138 / source.zip / FRMINFO.FRM < prev    next >
Text File  |  1995-01-18  |  1KB  |  50 lines
  1. VERSION 2.00
  2. Begin Form frminfo 
  3.    Caption         =   "FYI"
  4.    ClientHeight    =   4116
  5.    ClientLeft      =   876
  6.    ClientTop       =   1524
  7.    ClientWidth     =   7236
  8.    ClipControls    =   0   'False
  9.    Height          =   4536
  10.    Left            =   828
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4116
  15.    ScaleWidth      =   7236
  16.    Top             =   1152
  17.    Width           =   7332
  18.    Begin ListBox lstinfo 
  19.       Height          =   1560
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   3492
  24.    End
  25. End
  26. Option Explicit
  27.  
  28. Sub Form_Load ()
  29. Dim i As Integer
  30.     
  31.     Width = frmmain.Width * .7
  32.     Height = frmmain.Height * .7
  33.  
  34.     left = (screen.Width - Width) / 2
  35.     top = (screen.Height - Height) / 2
  36.     
  37.     Form_resize
  38.  
  39.     For i = 1 To GetNumLines()
  40.         lstinfo.AddItem fixstr(GetLine(i))
  41.     Next i
  42.  
  43. End Sub
  44.  
  45. Sub Form_resize ()
  46.     lstinfo.Width = frminfo.ScaleWidth
  47.     lstinfo.Height = frminfo.ScaleHeight
  48. End Sub
  49.  
  50.